#! /usr/bin/env Rscript
# Este script grafica como fue la performance de ciao en funcion de la cantidad de palabras
# que se iban agregando a la base de conocimiento. Estos valores se obtienen de codigo Java.
par(ask=TRUE)
x = c(50,100,150,200,250,300,350,400,450,500,550,600,650,700,750,800,850,900,950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850,1900,1950,2000,2050,2100,2150,2200,2250,2300,2350,2400,2450)
hits = c(56.62337662337662,52.98701298701298,54.8051948051948,52.98701298701298,55.84415584415584,58.44155844155844,58.44155844155844,56.88311688311688,55.84415584415584,57.66233766233766,54.54545454545454,55.32467532467532,55.32467532467532,58.18181818181818,57.14285714285714,57.14285714285714,60.51948051948052,60.0,60.51948051948052,60.259740259740255,60.51948051948052,60.51948051948052,60.259740259740255,59.74025974025974,59.74025974025974,58.18181818181818,58.96103896103896,58.7012987012987,59.480519480519476,60.0,59.22077922077922,60.259740259740255,60.259740259740255,60.259740259740255,61.038961038961034,61.038961038961034,60.51948051948052,59.74025974025974,60.77922077922078,60.259740259740255,60.77922077922078,61.55844155844156,62.33766233766234,61.81818181818181,61.55844155844156,62.077922077922075,63.116883116883116,63.37662337662338,63.63636363636363)
jpeg("performanceCiao.jpg")
plot(x, hits, type="o", col="blue", main=paste("Performance"), xlab=paste("Cant. de palabras"), ylab=paste("Porcentaje de aciertos"))
dev.off()
